module with_fpp
use my_analysis
implicit none

contains

subroutine convert_to_fpp(t1,t2)
implicit none
type(my_taylor) t1
type(taylor) t2,x,y,z
integer k

call alloc(x,y,z)
t2=0.0_dp
      x=one.mono.1
      y=one.mono.2
      z=one.mono.3
      
      do k=0,n_mono
      
      t2=t2+ t1%a(k)*x**jexp1(k)*y**jexp2(k)*z**jexp3(k)
      
      enddo
      
call kill(x,y,z)
end subroutine convert_to_fpp

subroutine convertmap_to_fpp(t1,t2)
implicit none
type(my_map) t1
type(damap) t2

call convert_to_fpp(t1%v(1),t2%v(1))
call convert_to_fpp(t1%v(2),t2%v(2))


end subroutine convertmap_to_fpp

end module with_fpp